





NT=2
CLEAR 
.CONTENTS (C) 1980
.BY R. C. TIETJENS
.PUBLICATION RIGHTS
.GRANTED R. FABRIS
   1 GOTO 20000
20000 .PARALLEL OUT
20005 P=255
.PORT # = P
20010 L=1;GOSUB 22020
20060 FOR A=-24568TO A+1529-SZ
20070 &(P)=%(A)
20075 B=%(A)÷256;IF (RM=13)+(RM=-243)GOSUB 20120
20080 NEXT A
20085 &(P)=13
20090 STOP
20120 .PR LN #
22000 A=A+1
22010 L=%(A)
22020 &(P)=L÷10000+48
22030 &(P)=RM÷1000+48
22040 &(P)=RM÷100+48
22050 &(P)=RM÷10+48
22060 &(P)=RM+48
22070 &(P)=32
22080 A=A+1;RETURN 
:RETURN 
>?